/* $VER: AmScript Online Help 0.9 (07/08/99) by Paul Demark & Michael Trebilcock */
Options Results;signal on syntax;Bold='02'x;Inverse='16'x;Error=0;IF Exists('Libs:rexxsupport.library')|Exists('Libs/rexxsupport.library')|Exists('rexxsupport.library') THEN;DO;IF ~SHOW('L','rexxsupport.library') THEN Call AddLib('rexxsupport.library',0,-30,0);End;ELSE;DO;Call cEcho('Unable To Open RexxSupport.library Please Install Libs:rexxsupport.library from your Workbench disk');Exit;End;IF Exists('Libs:rexxdossupport.library')|Exists('Libs/rexxdossupport.library')|Exists('rexxdossupport.library') THEN;DO;IF ~SHOW('L','rexxdossupport.library') THEN Call AddLib('rexxdossupport.library',0,-30,2);End;ELSE;DO;Call cEcho('Unable To Open RexxDosSupport.library Please Install Libs:rexxdossupport.library');Exit;End;Template='Arguements/M,Install/S,Resolve=R/S,SList=SoundList/S,Play/S,SSend=SoundSend/S,NBan=NickBan/S,Ban=IPBan/S,ZBan=ZIPBan/S,Simple/S,Complex/S,Run/S,NewNick=NNick/S,ZOp/S,ZDeOp/S,ZSuspend=ZSus/S,ZUnSuspend=ZUnSus/S,Type/S,Time/K,NoTime/S,Verbose=Verb/S,NoReason=NoR/S,ASHelp=Help/S,Helpizm/K';Parse Arg Args;Call ReadArgs(Args,Template);IF Helpizm~=69 THEN;Do;cEcho('The help system is called up from the main program, not separately!');Exit;End;Call cEcho("Welcome to the AmScript Online Help!");Call cEcho(" ");SELECT;WHEN Install THEN;DO;Call cEcho(Bold"Install Help:");Call cEcho("This command installs the Aliases, to use this type: /Rx AmScript Install");End;WHEN Resolve THEN;DO;Call cEcho(Bold"Resolve / R Help:");Call cEcho("This command resolves ones hostname, and outputs the IP address to you, this command can be used by typing /Resolve <nickname>");End;WHEN SList THEN;DO;Call cEcho(Bold"SList / SoundList Help:");Call cEcho("This command lists the sounds you have in the sound directory you have specified in the AmIRC prefs");End;WHEN Play THEN;DO;Call cEcho(Bold"Play Help:");Call cEcho("This plays the specified numbered sound from the SouldList command or the sound file you specify");Call cEcho(" ");Call cEcho("EG: /AS Play 4");Call cEcho("or");Call cEcho("/AS Play Ping.wav");End;WHEN SSend THEN;DO;Call cEcho(Bold"SSend / SoundSend Help:");Call cEcho("This sends the specified numbered sound from the SouldList command or the sound file you specify to the given user");Call cEcho(" ");Call cEcho("EG: /AS SSend 4 Mick");Call cEcho("or");Call cEcho("/AS SSend ping.wav Mick");End;WHEN NBan THEN;DO;Call cEcho(Bold"NBan / NickBan Help:");Call cEcho("This command bans a person by their nickname, to use this command type /NBan <nick> [Time] [NoTime] [Reason] [NoReason] [Verbose]");End;WHEN Ban THEN;DO;Call cEcho(Bold"Ban / IPBan Help:");Call cEcho("This command bans a person by their IP, to use this command type /IPBan <nick> [Time] [NoTime] [NoReason] [Complex] [Simple] [Verbose]");End;WHEN ZBan THEN;DO;Call cEcho(Bold"ZBan / ZIPBan Help:");Call cEcho("This command bans a person by their IP, to use this command type /ZBan <nick> [Time] [NoTime] [NoReason] [Complex] [Simple] [Verbose]");End;WHEN Run THEN;DO;Call cEcho(Bold"Run Help:");Call cEcho("This command can run any program from AmIRC, to use it type /Run <program> <arguments>");End;WHEN NewNick THEN;DO;Call cEcho(Bold"NewNick / Nick Help:");Call cEcho("This command will change your nick to the nick given or open up a GUI to allow you to enter a nickname to change to");End;WHEN Type THEN;DO;Call cEcho(Bold"Type Help:");Call cEcho("This command will display either publically(in channel) or the person you specify the defined text file");End;WHEN Verbose THEN;DO;Call cEcho(Bold"Verbose Help:");Call cEcho("This switch will show extra information of what is going on when used in conjunction with other AmScript commands");End;WHEN NoReason THEN;DO;Call cEcho(Bold"NoReason / NoR Help:");Call cEcho("This switch will stop AmScript asking for a Kick/(Z)Ban reason to be used");End;OTHERWISE;Call cEcho("An internbal error has occured in the help system! Please EMail sykoe@sub.net.au with the command "Bold||Args);Error=1;End;IF ~Error THEN;DO;Call cEcho(" ");Call cEcho("Commands in "Bold"<>"Bold" means they are required. Commands in "Bold"[]"Bold" are optional.");End;Depart:;IF Verbose THEN IF ASHelp~=1 THEN Call cEcho('Now quitting AmScript');Exit;cEcho:;'ECHO P='d2c(27)'b«AmScript» 'arg(1);Return();Syntax:;"ECHO P="d2c(27)"b«Syntax» Command on line" SIGL ", Returned" RC ":" errortext(rc) sourceline(SIGL);Call Depart()
